home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / vmake.raz < prev    next >
Encoding:
Text File  |  1994-12-19  |  2.1 KB  |  114 lines
  1. /*
  2. **      $Id: VMake.raz,v 1.7 1994/12/04 22:38:33 DBernard Rel $
  3. **
  4. **      VMake integration.  Script for AZur editor (©1994 J.M. Forgeas).
  5. **
  6. **      Original work from Bryce Nesbitt
  7. */
  8. PARSE UPPER ARG COMMAND /* Build Run Debug Front Open Compile */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. 'GetPort'
  13. port = Result
  14. 'GetVar' 'DCC_'||Result
  15. clip = RESULT
  16. if clip = "" THEN
  17.    DO
  18.       'REQMULTI' "TEXT Aucun projet VMAKE actif pour ce fichier."
  19.       exit 0
  20.    END
  21.  
  22. 'GetDocuments'
  23. docs = RESULT
  24.  
  25. OKSAVE = 0
  26. DO WHILE docs ~= ''
  27.  
  28.    PARSE VAR docs dummy ',' port ',' docs
  29.  
  30.    port = STRIP( port, 'B', '"' )
  31.    ADDRESS VALUE port
  32.  
  33.    'GetFileInfo'
  34.    changed = word(RESULT, 2)
  35.  
  36.    'BMRemove' "PAT DERR_#?"
  37.  
  38.     IF changed = "YES" THEN DO
  39.         IF OKSAVE = 0 then DO
  40.             'REQMULTI' "CONVERT B1 _Oui B3 _Non TEXT Tous les fichiers n''ont pas été sauvegardés\n\nFaut-il effectuer la sauvegarde ?"
  41.             PARSE VAR RESULT button "," string1 "," string2
  42.             IF button ~= 'OK' THEN LEAVE
  43.             OKSAVE = 1
  44.         END
  45.         'WIN2FILE' 'SAME'
  46.     END
  47.     ADDRESS
  48. END
  49.  
  50. IF show('p','DICE_ERROR_PARSER') THEN
  51.    ADDRESS DICE_ERROR_PARSER Clear
  52.  
  53. ADDRESS VALUE Clip
  54.  
  55. SELECT
  56.    WHEN COMMAND = 'COMPILE' THEN
  57.       DO
  58.          ADDRESS
  59.          'GetFileInfo'
  60.          PARSE value RESULT with d1 d2 '"' file '"'
  61.          ADDRESS
  62.  
  63.          'Select' file
  64.          IF RC = 0 THEN
  65.             'CALL 1'
  66.          CRC = RC
  67.       END
  68.  
  69.     WHEN COMMAND = 'BUILD' THEN
  70.         DO
  71.             'CALL 2'
  72.             CRC = RC
  73.         END
  74.    WHEN COMMAND = 'RUN'   THEN
  75.       DO
  76.          'CALL 2'
  77.          IF RC = 0 THEN
  78.             'CALL 4'
  79.          CRC = RC
  80.       END
  81.    WHEN COMMAND = 'DEBUG' THEN
  82.       DO
  83.          'CALL 2'
  84.          IF RC = 0 THEN
  85.             'CALL 5'
  86.          CRC = RC
  87.       END
  88.    WHEN COMMAND = 'FRONT' THEN
  89.       DO
  90.          'FRONT'
  91.          CRC = RC
  92.       END
  93.    WHEN COMMAND = 'OPEN' THEN
  94.       DO
  95.          'FRONT'
  96.          CRC = RC
  97.       END
  98.    OTHERWISE
  99.       DO
  100.          address
  101.          'REQMULTI' "TEXT Commande inconue:" COMMAND
  102.          exit 5
  103.       END
  104. END
  105.  
  106. ADDRESS
  107.  
  108. IF CRC ~= 0 THEN DO
  109.    'REQMULTI' "TEXT" COMMAND "Failed / RC:" CRC
  110. END
  111. ELSE DO
  112.    'REQMULTI' "TEXT" COMMAND "Done"
  113. END
  114.